﻿Public Class FPrincipal


    Private Sub CargarGrillaTareas(ByVal ConsultaSQL As String)
        Dim Y
        Dim x

        GrillaTareas.Rows.Clear()

        Dt = sql.LEER(ConsultaSQL)

        For x = 0 To Dt.Rows.Count - 1
            GrillaTareas.Rows.Add(1)
            Y = GrillaTareas.Rows.Count - 2
            GrillaTareas.Item(0, Y).Value = Dt.Rows(x).Item("id_tarea")
            GrillaTareas.Item(1, Y).Value = Format(Dt.Rows(x).Item("fecha_inicio"), "dd/MM/yyyy")
            GrillaTareas.Item(2, Y).Value = Dt.Rows(x).Item("area")
            GrillaTareas.Item(3, Y).Value = Dt.Rows(x).Item("Tarea_Titulo")

            Try
                GrillaTareas.Item(4, Y).Value = Format(Dt.Rows(x).Item("fecha_implementacion"), "dd/MM/yyyy")
            Catch ex As Exception
                GrillaTareas.Item(4, Y).Value = ""
            End Try

            Try
                GrillaTareas.Item(5, Y).Value = Format(Dt.Rows(x).Item("fecha_finalizacion"), "dd/MM/yyyy")
            Catch ex As Exception
                GrillaTareas.Item(5, Y).Value = ""
            End Try

            GrillaTareas.Item(6, Y).Value = Dt.Rows(x).Item("estado")
        Next

    End Sub

    Private Sub BtSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSalir.Click
        Me.Close()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttareas.Click

        Try
            tarea = GrillaTareas.CurrentRow.Cells.Item(0).Value
        Catch ex As Exception
            MsgBox("Seleccione una tarea de la grilla")
            Exit Sub
        End Try

        If tarea = 0 Then
            Exit Sub
        End If

        Principal = True
        FABM_Tareas.ShowDialog()

        If id_subarea = 1 Then
            CargarGrillaTareas("select t.*, a.area, te.descripcion as estado from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado = 3) and (t.baja <> 'S') and ((t.id_subarea is null) or (t.id_subarea = -1))")
        Else
            If id_actividad = 1 Then
                CargarGrillaTareas("select t.*, a.area, te.descripcion as estado from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado = 3) and (t.baja <> 'S') and (t.id_subarea = ' " & id_subarea & " ') and ((t.id_usuario is null) or (t.id_usuario = -1))")
            Else
                CargarGrillaTareas("select t.*, a.area, te.descripcion as estado from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado = 3) and (t.baja <> 'S') and (t.id_usuario = ' " & id_usuario & " ')")
            End If
        End If

    End Sub


    Private Sub GrillaTareas_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GrillaTareas.MouseClick
        tarea = GrillaTareas.CurrentRow.Cells.Item(0).Value

        Dt = sql.LEER("select t.*, u.NombreApellido, sa.subarea, a.area, te.descripcion as estado, t.id_area, t.id_subarea,t.id_usuario from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) left join subarea sa on (t.id_subarea = sa.id_subarea) left join usuarios u on (t.id_usuario = u.id_usuario) where (t.id_tarea = '" & Val(tarea) & "')")

        If Dt.Rows.Count <> 0 Then
            txtTarea.Clear()
            txtTarea.Text = Dt.Rows(0).Item("tarea")

            If (Dt.Rows(0).Item("id_area") = -1) Or (Dt.Rows(0).Item("id_subarea") = -1) Or (Dt.Rows(0).Item("id_usuario") = -1) Then
                btCerrar.Enabled = False
            Else
                btCerrar.Enabled = True
            End If
        Else
            btCerrar.Enabled = False
        End If

    End Sub


    Private Sub FPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim usuario_nombre
        Dim usuario_area
        Dim usuario_subarea
        Dim usuario_actividad

        If id_subarea = 1 Then
            CargarGrillaTareas("select t.*, a.area, te.descripcion as estado, t.id_area, t.id_subarea, t.id_usuario from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado <> 3) and (t.baja <> 'S') and ((t.id_subarea is null) or (t.id_subarea = -1))")
        Else
            If id_actividad = 1 Then
                CargarGrillaTareas("select t.*, a.area, te.descripcion as estado, t.id_area, t.id_subarea, t.id_usuario from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado <> 3) and (t.baja <> 'S') and (t.id_subarea = ' " & id_subarea & " ') and ((t.id_usuario is null) or (t.id_usuario = -1))")
            Else
                CargarGrillaTareas("select t.*, a.area, te.descripcion as estado, t.id_area, t.id_subarea, t.id_usuario from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado <> 3) and (t.baja <> 'S') and (t.id_usuario = ' " & id_usuario & " ')")
                btAbmUsuarios.Enabled = False
                bttareas.Enabled = False
            End If
        End If

        If Dt.Rows.Count <> 0 Then
            If (Dt.Rows(0).Item("id_area") = -1) Or (Dt.Rows(0).Item("id_subarea") = -1) Or (Dt.Rows(0).Item("id_usuario") = -1) Then
                btCerrar.Enabled = False
            Else
                btCerrar.Enabled = True
            End If
        Else
            btCerrar.Enabled = False
        End If


        Dt = sql.LEER("select u.NombreApellido ,a.area, sa.subarea, ac.actividad from usuarios u left join areas a on (u.id_area = a.id_area) left join subarea sa on (u.id_subarea = sa.id_subarea) left join actividad ac on (u.id_actividad = ac.id_actividad) where u.id_usuario = '" & id_usuario & "' ")


        If Dt.Rows.Count <> 0 Then
            usuario_nombre = Dt.Rows(0).Item("NombreApellido")
            usuario_area = Dt.Rows(0).Item("area")
            usuario_subarea = Dt.Rows(0).Item("subarea")
            usuario_actividad = Dt.Rows(0).Item("actividad")
        End If


        LDatosUsuario.Text = "Usuario: " + usuario_nombre + " - Area: " + usuario_area + " - SubArea: " + usuario_subarea + " - Actividad: " + usuario_actividad


    End Sub

    Private Sub btCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCerrar.Click

        txtfechacierre.Text = Format(Now, "yyyy/MM/dd")

        PCerrarTarea.Visible = True
        btCerrar.Enabled = False
        BtEnCurso.Enabled = False
        btAbmUsuarios.Enabled = False
        bttareas.Enabled = False
        BtTerminados.Enabled = False
        GrillaTareas.Enabled = False
    End Sub

    Private Sub BtEnCurso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtEnCurso.Click
        btCerrar.Enabled = True
        btBaja.Enabled = True

        If id_subarea = 1 Then
            CargarGrillaTareas("select t.*, a.area, te.descripcion as estado, t.id_area, t.id_subarea, t.id_usuario from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado <> 3) and (t.baja <> 'S') and ((t.id_subarea is null) or (t.id_subarea = -1))")
        Else
            If id_actividad = 1 Then
                CargarGrillaTareas("select t.*, a.area, te.descripcion as estado, t.id_area, t.id_subarea, t.id_usuario from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado <> 3) and (t.baja <> 'S') and (t.id_subarea = ' " & id_subarea & " ') and ((t.id_usuario is null) or (t.id_usuario = -1))")
            Else
                CargarGrillaTareas("select t.*, a.area, te.descripcion as estado, t.id_area, t.id_subarea, t.id_usuario from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado <> 3) and (t.baja <> 'S') and (t.id_usuario = ' " & id_usuario & " ')")
            End If
        End If

        If Dt.Rows.Count <> 0 Then
            If (Dt.Rows(0).Item("id_area") = -1) Or (Dt.Rows(0).Item("id_subarea") = -1) Or (Dt.Rows(0).Item("id_usuario") = -1) Then
                btCerrar.Enabled = False
            Else
                btCerrar.Enabled = True
            End If
        Else
            btCerrar.Enabled = False
        End If

    End Sub

    Private Sub BtTerminados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtTerminados.Click
        btCerrar.Enabled = False
        btBaja.Enabled = False

        If id_subarea = 1 Then
            CargarGrillaTareas("select t.*, a.area, te.descripcion as estado, t.id_area, t.id_subarea, t.id_usuario from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado = 3) and (t.baja <> 'S') and ((t.id_subarea is null) or (t.id_subarea = -1))")
        Else
            If id_actividad = 1 Then
                CargarGrillaTareas("select t.*, a.area, te.descripcion as estado,t.id_area, t.id_subarea, t.id_usuario from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado = 3) and (t.baja <> 'S') and (t.id_subarea = ' " & id_subarea & " ') and ((t.id_usuario is null) or (t.id_usuario = -1))")
            Else
                CargarGrillaTareas("select t.*, a.area, te.descripcion as estado, t.id_area, t.id_subarea, t.id_usuario from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado = 3) and (t.baja <> 'S') and (t.id_usuario = ' " & id_usuario & " ')")
            End If
        End If

    End Sub

    Private Sub btAbmUsuarios_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAbmUsuarios.Click
        FABM_Usuarios.ShowDialog()
    End Sub


    Private Sub btaceptarfin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btaceptarfin.Click

        tarea = GrillaTareas.CurrentRow.Cells.Item(0).Value
        sql.INSERT_UPDATE_DELETE("update tareas t set t.id_estado = 3, t.Observacion_final = '" & txtobsfinal.Text & "', t.Fecha_Finalizacion = '" & txtfechacierre.Text & "' where(t.id_tarea = '" & tarea & "')")

        If id_subarea = 1 Then
            CargarGrillaTareas("select t.*, a.area, te.descripcion as estado from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado <> 3) and (t.baja <> 'S') and ((t.id_subarea is null) or (t.id_subarea = -1))")
        Else
            If id_actividad = 1 Then
                CargarGrillaTareas("select t.*, a.area, te.descripcion as estado from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado <> 3) and (t.baja <> 'S') and (t.id_subarea = ' " & id_subarea & " ') and ((t.id_usuario is null) or (t.id_usuario = -1))")
            Else
                CargarGrillaTareas("select t.*, a.area, te.descripcion as estado from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado <> 3) and (t.baja <> 'S') and (t.id_usuario = ' " & id_usuario & " ')")
                btAbmUsuarios.Enabled = False
                bttareas.Enabled = False
            End If
        End If

        PCerrarTarea.Visible = False
        txtfechacierre.Clear()
        txtobsfinal.Clear()
        btCerrar.Enabled = True
        BtEnCurso.Enabled = True
        btAbmUsuarios.Enabled = True
        bttareas.Enabled = True
        GrillaTareas.Enabled = True
        BtTerminados.Enabled = True
    End Sub

    Private Sub btcancelarfin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcancelarfin.Click
        PCerrarTarea.Visible = False
        btCerrar.Enabled = True
        BtEnCurso.Enabled = True
        btAbmUsuarios.Enabled = True
        bttareas.Enabled = True
        GrillaTareas.Enabled = True
        BtTerminados.Enabled = True
    End Sub

    Private Sub btBaja_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btBaja.Click
        Dim response As MsgBoxResult

        tarea = GrillaTareas.CurrentRow.Cells.Item(0).Value

        If tarea = 0 Then
            Exit Sub
        End If


        response = MsgBox("Esta Seguro que desea dar de baja esta tarea", MsgBoxStyle.YesNo)
        If response = MsgBoxResult.Yes Then

            sql.INSERT_UPDATE_DELETE("update tareas t set t.baja = 'S' where(t.id_tarea = '" & tarea & "')")

            If id_subarea = 1 Then
                CargarGrillaTareas("select t.*, a.area, te.descripcion as estado from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado <> 3) and (t.baja <> 'S') and ((t.id_subarea is null) or (t.id_subarea = -1))")
            Else
                If id_actividad = 1 Then
                    CargarGrillaTareas("select t.*, a.area, te.descripcion as estado from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado <> 3) and (t.baja <> 'S') and (t.id_subarea = ' " & id_subarea & " ') and ((t.id_usuario is null) or (t.id_usuario = -1))")
                Else
                    CargarGrillaTareas("select t.*, a.area, te.descripcion as estado from tareas t left join tareas_estados te on (t.id_estado = te.id_estado) left join areas a on (t.id_area = a.id_area) where (te.id_estado <> 3) and (t.baja <> 'S') and (t.id_usuario = ' " & id_usuario & " ')")
                    btAbmUsuarios.Enabled = False
                    bttareas.Enabled = False
                End If
            End If

            txtTarea.Clear()

        End If

    End Sub
End Class
